﻿Imports Microsoft.VisualBasic.FileIO.FileSystem
Imports Archivos.ArchivoIni
Imports System.Configuration
Imports System.Text
Imports System.Windows.Forms
Imports System.Globalization
Imports System.ComponentModel
Imports System.Collections.Specialized

Partial Public Class EguSoc_Dll
    Public Shared Sub Carga_Conexion_Archivo()
        Dim sPath As String
        Dim Cadena_Conexion As String = ""
        Try
            sPath = System.AppDomain.CurrentDomain.BaseDirectory

            If FileExists(sPath & "\EguSoc.Ini") Then
                Cadena_Conexion = Leer_Param(sPath & "\EguSoc.Ini", "@Cadena_Conexion")
            End If

            If Cadena_Conexion <> "" Then
                Global.EguSoc_Dll.My.MySettings.Default.Conexion = Cadena_Conexion
            End If
        Catch ex As Exception
            Console.Write(ex.Message)
        End Try
    End Sub
End Class
